home *** CD-ROM | disk | FTP | other *** search
/ Shareware Grab Bag / Shareware Grab Bag.iso / 001 / robin10.arc / ROBIN-SV.SUB < prev    next >
Encoding:
Text File  |  1987-01-05  |  1.7 KB  |  75 lines
  1. ;                   ROBIN-SV.SUB    "Round Robin Dialer"
  2. ;                                 by
  3. ;                           Samuel Smulowitz
  4. ;                          CENTURY ASSOCIATES
  5. ;                          141-04 71st Avenue
  6. ;                          Flushing, N.Y. 11367
  7. ;
  8. ;
  9. START:
  10.   SET RDELAY 0
  11.   GOTO SETVALUES1
  12. ;
  13. OK:
  14.   LOCATE 22,70
  15.   MESSAGE "[  ]   "
  16.   LOCATE 22,71
  17.   GET S9 1
  18. ;
  19. YN:                                                                             EXIT
  20.   SWITCH S9
  21.     CASE "Y"
  22.       RETURN
  23.     ENDCASE
  24.     CASE "N"
  25.       RETURN
  26.     ENDCASE
  27.     CASE "y"
  28.       RETURN
  29.     ENDCASE
  30.     CASE "n"
  31.       RETURN
  32.     ENDCASE
  33.   ENDSWITCH
  34.   GOTO OK
  35. ;
  36. SETVALUES1:
  37.   LOCATE 22,10
  38.   MESSAGE "Do you wish standard BBS settings? (Y/N) -------------->         "
  39.   LOCATE 8,0
  40.   MESSAGE"                (Standard values are: ANSI-BBS 1200,N,8,1) "
  41.   LOCATE 22,70
  42.   MESSAGE "[  ]"
  43.   LOCATE 22,71
  44.   GET S9 1
  45.   GOSUB YN
  46.   SWITCH S9
  47.     CASE "N"
  48.       LOCATE 2,0
  49.       MESSAGE"     ║           VALUES: Set-up by user               ║"
  50.     ENDCASE
  51.     CASE "n"
  52.       LOCATE 2,0
  53.       MESSAGE"     ║           VALUES: Set-up by user               ║"
  54.     ENDCASE
  55.     DEFAULT
  56.       LOCATE 2,0
  57.       MESSAGE"     ║         VALUES: ANSI-BBS (1200,N,8,1)          ║"
  58.       SET TRANSLATE OFF
  59.       EMULATE ANSI
  60.       SET BAUDRATE 1200
  61.       SET DATABITS 8
  62.       SET STOPBITS 1
  63.       SET PARITY NONE
  64.       SET RDELAY 25             ;ALSO CHG SECS IN "WAITFOR" IN ROBIN-DR.SUB.
  65.     ENDCASE
  66.   ENDSWITCH
  67. ;
  68. VALUES-OK:
  69.   LOCATE 8,0
  70.   MESSAGE "                                                                 "
  71.   EXECUTE "ROBIN.CMD"
  72. ;
  73. EXIT:
  74. EXIT
  75.